//Необходимо изменить существующие проводки и добавить значение Субконто

Набор = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

Набор.Отбор.Регистратор.Установить(Объект.Ссылка);

Набор.Прочитать();

Для каждого Запись из Набор Цикл

    

    Если Запись.СчетКт =  ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами Тогда

	// для переборов субконто

        Запись.СубконтоКт[Запись.СчетКт.ВидыСубконто[1]] = Объект.ДоговорКонтрагента;

	// указывая конкретное значение

	//Запись.СубконтоКт.Договоры = Объект.ДоговорКонтрагента;

    КонецЕСли;

  

КонецЦикла;

Набор.Записать();   

  // Перебор и замена реквизитов в проводках операции

   НаборЗаписейБУ = РегистрыБухгалтерии.Типовой.СоздатьНаборЗаписей();

   НаборЗаписейБУ.Отбор.Регистратор.Использование = Истина;

   НаборЗаписейБУ.Отбор.Регистратор.Значение = ОперацияБух;

   НаборЗаписейБУ.Прочитать();

   Для Каждого ЗаписьБУ Из НаборЗаписейБУ Цикл

      Если (ЗаписьБУ.СчетКт = ПланыСчетов.Типовой.ИндивидуальныйПодоходныйНалог) или

          (ЗаписьБУ.СчетКт = ПланыСчетов.Типовой.СоциальныйНалог) Тогда

         

         ВидСубк = ЗаписьБУ.СчетКт.ВидыСубконто[2].ВидСубконто;

         ЗаписьБУ.СубконтоКт.Вставить(ВидСубк, Контрагент);

      

         ЕстьИзменения = Истина;

      КонецЕсли;

   КонецЦикла;

   Если ЕстьИзменения Тогда

      НаборЗаписейБУ.Записать();

   КонецЕсли;   

 

// Задать выбираемые значения. 

ВыбранныйОтветственный = Справочники.Пользователи.НайтиПоНаименованию("Иванцова"); 

ВыбранныйКонтрагент = Справочники.Контрагенты.НайтиПоКоду("00027"); 

ВыбранныйДоговор = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("00013"); 

ВыбранныйДокумент = Документы.ДокументРасчетовСКонтрагентом.НайтиПоНомеру(2, '20050101'); 

ВыбранныйСчет = Справочники.БанковскиеСчета.НайтиПоКоду("00001"); 

ВыбраннаяСтатья = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("00002"); 

ВыбраннаяОрганизация = Справочники.Организации.НайтиПоКоду("00001"); 

ВыбраннаяВалюта = Справочники.Валюты.НайтиПоКоду(810); 



// Создать будущий регистратор. 

ДатаЗаписи = ТекущаяДата(); 

Документ = Документы.ОперацияБух.СоздатьДокумент(); 

Документ.Дата = ДатаЗаписи; 

Документ.Организация = ВыбраннаяОрганизация; 

Документ.Ответственный = ВыбранныйОтветственный; 

Документ.Содержание = "Оплата поставщику"; 

Документ.Записать(); 



// Создать набор записей. 

НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();



НаборЗаписей.Отбор.Регистратор.Установить(Документ.Ссылка); 



Движение = НаборЗаписей.Добавить(); 

Движение.Регистратор = Документ.Ссылка; 

Движение.Период = ДатаЗаписи; 



// Заполнить счет дебета. 

Движение.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01"); 



// Заполнить аналитику счета дебета. 

Движение.СубконтоДт.Контрагенты = ВыбранныйКонтрагент; 

Движение.СубконтоДт.Договоры = ВыбранныйДоговор; 

Движение.СубконтоДт.ДокументыРасчетовСКонтрагентами = ВыбранныйДокумент; 



// Заполнить счет кредита. 

Движение.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("51"); 



// Заполнить аналитику счета кредита. 

Движение.СубконтоКт.БанковскиеСчета = ВыбранныйСчет; 

Движение.СубконтоКт.СтатьиДвиженияДенежныхСредств = ВыбраннаяСтатья; 



// Балансовое измерение. 

Движение.Организация = ВыбраннаяОрганизация; 



// Балансовый ресурс. 

Движение.Сумма = 300000; 



// Реквизиты.Движение.НомерЖурнала = "БК"; 

Движение.Содержание = "Оплата поставщику"; 



// Записать набор записей. 

НаборЗаписей.Записать();